home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / util / shell / ShellScr.lha / ShellScr / src / clr.asm < prev    next >
Encoding:
Assembly Source File  |  1998-04-10  |  537 b   |  26 lines
  1. ; mem := clr(mem,sze)
  2. ; clears sze bytes of memory starting at mem, returns mem
  3.  
  4. ; mem := memset(mem,chr,sze)
  5. ; puts char chr into sze bytes of memory starting at mem. returns mem
  6.  
  7.     XDEF    clr_ii
  8.     XDEF    memset_iii
  9.  
  10. clr_ii    move.l    8(sp),a0    ; get mem
  11.     move.l    4(sp),a1    ; get sze
  12.     moveq    #0,d0
  13.     bsr.s    _bla        ; add another 4 bytes on stack :)
  14.     rts
  15. memset_iii
  16.     move.l    12(sp),a0    ; get mem
  17.     move.l    8(sp),d0    ; get chr
  18.     move.l    4(sp),a1    ; get sze
  19. _bla    adda.l    a0,a1
  20. .loop    cmp.l    a0,a1
  21.     beq.s    .exit
  22.     move.b    d0,(a0)+
  23.     bra.s    .loop
  24. .exit    move.l    12(sp),d0
  25.     rts
  26.